home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / GS3.ZIP / GunSlinger3 / aliases.ini next >
INI File  |  1997-04-01  |  32KB  |  714 lines

  1. [Aliases]
  2. n0=;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ
  3. n1=; Gs3      ñççñ Aliases ñççñ The GunSlinger 3 ñççñ       ñ
  4. n2=;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ by SixGun ñ ñ
  5. n3=;
  6. n4=op mode # +ooo $$1 $2 $3
  7. n5=dop mode # -ooo $$1 $2 $3
  8. n6=j join #$$1
  9. n7=p part #
  10. n8=w whois $$1
  11. n9=k kick # $$1
  12. n10=q query $$1
  13. n11=Ping ctcp $$1 ping
  14. n12=hop part # | join #$$1
  15. n13=send dcc send $1 $2
  16. n14=chat dcc chat $1
  17. n15=Update { .disable #Notify | set %Notify Enabled | .Notify on | .notify | .timer 1 8 .enable #Notify | return echo -a 1çç[12Updated Notify List1]çç }
  18. n16=opn onotice *1
  19. n17=om Omsg *1
  20. n18=o onotice 1çç[12OPS on # $+ 1]╗ *1 %tg
  21. n19=n notice *1
  22. n20=SnickScan {
  23. n21=  set %s 0
  24. n22=  .notify off
  25. n23=  .enable #ServScan
  26. n24=  :start
  27. n25=  inc %s 1
  28. n26=  if ($snick(%S,#) == $null) { goto end }
  29. n27=  if ($snick(%S,#) == X) { dec %nk 1 | goto start }
  30. n28=  if ($snick(%s,#) == W) { dec %nk 1 | goto start }
  31. n29=  Whois $snick(%s,#)
  32. n30=  goto start
  33. n31=  :end
  34. n32=  inc %s 1
  35. n33=  halt
  36. n34=}
  37. n35=CnickScan {
  38. n36=  set %s 0
  39. n37=  .notify off
  40. n38=  .enable #ServScan
  41. n39=  :start
  42. n40=  inc %s 1
  43. n41=  if ($nick(%S,#) == $null) { goto end }
  44. n42=  if ($nick(%S,#) == X) { dec %nk 1 | goto start }
  45. n43=  if ($nick(%s,#) == W) { dec %nk 1 | goto start }
  46. n44=  Whois $nick(%s,#)
  47. n45=  goto start
  48. n46=  :end
  49. n47=  inc %s 1
  50. n48=  halt
  51. n49=}
  52. n50=pserv {
  53. n51=  set %n301 halt | .timer 1 25 unset %n301
  54. n52=  .Play -tserv %the $mircdir $+ serv.txt 10
  55. n53=  unset %pp %the %serv %nk %servchan %s %tot %nicks %idem % $+ [ $gettok($parm3,1,46) ]
  56. n54=  .play -ctunset $me $mircdir $+ unset.txt 10 
  57. n55=  .disable #Notify | set %Notify Enabled | .Notify ON | .timer 1 8 .enable #Notify 
  58. n56=  halt
  59. n57=}
  60. n58=clones {
  61. n59=  set %cg 0 | set %tc 0 | set %i 0 | set %j 0
  62. n60=  :start
  63. n61=  inc %i 1
  64. n62=  set %cursite $address($nick(%i,#),2)
  65. n63=  if (%cursite == $null) { goto end }
  66. n64=  if (%cursite isin %clonesite) { goto start }
  67. n65=  if ($readini ial.ini sites %cursite == 1) {
  68. n66=    %j = 0
  69. n67=    :top
  70. n68=    inc %j 1
  71. n69=    if ($ial(%cursite,%j).nick == $null) { goto Report }
  72. n70=    set %clonenick $ial(%cursite,%j).nick
  73. n71=    if (%clonenick !ison %ialchan) { dec %j 1 | goto top }
  74. n72=    if (%clonenick isop %ialchan) { set %clonenick @ $+ %clonenick }
  75. n73=    set %clones %clones %clonenick
  76. n74=    unset %clstatus
  77. n75=    goto top 
  78. n76=    :report
  79. n77=    dec %j 1
  80. n78=    inc %cg 1
  81. n79=    inc %tc %j
  82. n80=    %report 1çç[SeT: $+ %cg $+ ]╗ NICKS %j ½ç╗12 %clones 1½[Site]╗12 %cursite
  83. n81=    %clonesite = %clonesite %cursite
  84. n82=    unset %j %clonenick %clones
  85. n83=    goto start    
  86. n84=  }
  87. n85=  writeini ial.ini sites %cursite 1
  88. n86=  goto start
  89. n87=  :end
  90. n88=  if (%tc == 0) { %report 1çç[12 $+ %ialchan $+ 1]╗ is Clone Free }
  91. n89=  unset %i %cursite %clonesite
  92. n90=  remini ial.ini sites
  93. n91=  set %temp $ticks
  94. n92=  dec %temp %ticks
  95. n93=  %report 1çç[12Raist's Clone Scan⌐1]╗ Completed ½ç╗ Speed6 %temp 1ticks 
  96. n94=  unset %temp %tc %cg %ticks %ialchan %report unset %j %cstatus %tochan
  97. n95=}
  98. n96=joindet {
  99. n97=  set %cursite $address($nick,2) 
  100. n98=  if ($ial(%cursite,0).nick == 1) { goto end }
  101. n99=  set %i 0
  102. n100=  :top
  103. n101=  inc %i 1  
  104. n102=  if ($ial(%cursite,%i).nick == $null) { goto report }
  105. n103=  if ($ial(%cursite,%i).nick == %cursite) { goto top }    
  106. n104=  if (($ial(%cursite,%i).nick ison %joinchan) && ($nick != $ial(%cursite,%i).nick)) { set %clonenick %clonenick $ial(%cursite,%i).nick }
  107. n105=  if (%clonenick isop %joinchan ) { set %clonenick @ $+ %clonenick }
  108. n106=  goto top
  109. n107=  :report
  110. n108=  if (%clonenick == $null) { goto end }
  111. n109=  dec %i 1
  112. n110=  set %temp $ticks
  113. n111=  dec %temp %ticks
  114. n112=  if (%ialrep == 1) {
  115. n113=    echo -a çç[12Raist's Clone Scan⌐1]╗ Detected Clone Joining ½ç╗12 %joinchan
  116. n114=    echo -a çç[12Raist's Clone Scan⌐1]╗ Reports12 $nick 1½is Clone of╗12 %clonenick
  117. n115=    echo -a çç[From Site]╗12 %cursite  1çç[6Ticks %temp $+ 1]çç | goto end
  118. n116=  } 
  119. n117=  elseif (%ialrep == 2) {
  120. n118=    msg %joinchan çç[12Raist's Clone Scan⌐1]╗ Detected Clone Joining ½ç╗12 %joinchan 
  121. n119=    msg %joinchan çç[12Raist's Clone Scan⌐1]╗ Reports12 $nick 1½is Clone of╗12 %clonenick
  122. n120=    msg %joinchan çç[From Site]╗12 %cursite  1çç[6Ticks %temp $+ 1]çç | goto end
  123. n121=  }  
  124. n122=  :end
  125. n123=  unset %joinchan %i %clonenick %cursite %temp %ticks
  126. n124=}
  127. n125=clkick {
  128. n126=  set %kk 0 | set %i 0 | set %j 0
  129. n127=  :start
  130. n128=  inc %i 1
  131. n129=  set %cursite $address($nick(%i,#),2)
  132. n130=  if (%cursite == $null) { goto end }
  133. n131=  if (%cursite isin %done) { goto start }
  134. n132=  if ($readini ial.ini sites %cursite == 1) {
  135. n133=    set %j 0
  136. n134=    :top
  137. n135=    inc %j 1
  138. n136=    if ($ial(%cursite,%j).nick == $null) { goto acheck }
  139. n137=    set %clonenick $ial(%cursite,%j).nick
  140. n138=    if (%clonenick !ison %ialchan) { dec %j 1 | goto top }
  141. n139=    if ((($level($address(%clonenick,1)) < 200) && (%ialdo = ban) && (%cursite !isin %bansite))) { ban -u600 %ialchan %clonenick 2 | set %bansite %cursight }
  142. n140=    if (%ialdo == ban) { set %kickparm 1çç[12Raist's EJECTER⌐1]╗ Clone ╗ %j ½[4+10 min ban1] }  
  143. n141=    if (%ialdo == kick) { set %kickparm 1çç[12Raist's EJECTER⌐1]╗ Clone ╗ %j ½[4KICKED1] }
  144. n142=    if ($level($address(%clonenick,1)) < 200) { kick %ialchan %clonenick %kickparm | inc %kk 1 | goto top }
  145. n143=    :acheck
  146. n144=    set %done %cursite
  147. n145=    unset %j %clonenick
  148. n146=    goto start    
  149. n147=  }
  150. n148=  writeini ial.ini sites %cursite 1
  151. n149=  goto start
  152. n150=  :end
  153. n151=  set %temp $ticks
  154. n152=  dec %temp %ticks
  155. n153=  if (%kk == 0) { msg %ialchan 1çç[12Raist's Clone Filter⌐1]╗ %ialchan ½[4Clear1 of UnAuthorized Clones] } | else { msg %ialchan 1çç[12Raist's Clone Filter⌐1]╗4 %kk 1½ UnAuthorized Clones ½[4EJECTED1]╗12 %ialchan }            
  156. n154=  unset %i %j %cursite %clonesite %temp %ticks %ialchan %kickparm %ialdo %done %kk
  157. n155=  remini ial.ini sites
  158. n156=}
  159. n157=sF1 guser 500 $me 3 | .timer 1 5 Query $me You are about to setup Gs3. The first 4 questions deal with your nicks and address and MUST be answered exactly as you just did in the mirc setup box! The next 2 are also very important for example if your nick is JohnnyDoe You might use JohnAway and John-BRB for these 2! The rest are optional and may be skipped by selecting cancel! Selecting OK without entering data will abort this set up! I strongly suggest you answer all questions to fully utilize this script! | .timer 1 50 close -m Gs3 | .timer 1 53 setup
  160. n158=setup {
  161. n159=  set %RealName $$?="Enter your Real Name"
  162. n160=  set %EMail $$?="Enter your E-mail"
  163. n161=  set %Regnick $$?="Enter your NickName"
  164. n162=  set %AltNick $$?="Enter your Alternate NickName"
  165. n163=  set %AwayNick $$?="Enter your Away NickName"
  166. n164=  set %BRBNick $$?="Enter your BRB NickName"
  167. n165=  set %MidiPath $$?="Enter path to your Midi file ie; C:\midis\" | writeini mirc.ini extensions n7 *.midEXTDIR: $+ $$! $+ \EXTAPP:c:\windows\mplayer.exe
  168. n166=  set %MyPass $?="Enter your X or W password"
  169. n167=  set %tz $?="Enter your Time Zone"
  170. n168=  set %Title $?="Enter your WebPage Title"
  171. n169=  set %URL $?="Enter your WebPage URL"
  172. n170=  set %MyEmail $?="Enter you actual E-Mail address"
  173. n171=  set %VersionReply $?="Enter your Reply to Version"
  174. n172=  set %UserinfoReply $?="Enter your Reply to Userinfo"
  175. n173=  set %ClientinfoReply $?="Enter your Reply to Clientinfo"
  176. n174=  set %FingerReply $?="Enter your Reply to Finger"
  177. n175=  set %Personal1 $?="Enter your First Quit Message"
  178. n176=  set %Personal2 $?="Enter your Second Quit Message"
  179. n177=  Query $me 12You are about to add your HomeChannels. There are 4 of these Homechannel to set and after each you will be asked if X or W is on it and if you are Authorized to use X or W in that channel. If you are not Authorized to use X or W Just click Cancel to continue! | .timer 1 25 close -m $me | .timer 1 30 setup1
  180. n178=}
  181. n179=setup1 {
  182. n180=  set %HomeChannel1 $?="Enter your First Home Channel Name"
  183. n181=  set %hc1 $?="Does 1st Home channel Have X or W"
  184. n182=  set %HomeChannel2 $?="Enter your Second Home Channel Name"
  185. n183=  set %hc2 $?="Does 2nd Home channel Have X or W"
  186. n184=  set %HomeChannel3 $?="Enter your Third Home Channel Name"
  187. n185=  set %hc3 $?="Does 3rd Home channel Have X or W"
  188. n186=  set %HomeChannel4 $?="Enter your Forth Home Channel Name"
  189. n187=  set %hc4 $?="Does 4th Home channel Have X or W"
  190. n188=  Query $me 4You are about to answer the final question and it is important and deals with how you will join your HomeChannels! Type the word ( Ajoin ) if you want to Autojoin your HomeChannels OR Type the word ( Fjoin ) to join your HomeChannels by pressing the (F9) thru (F12) Function Keys! (Defalt) | .timer 1 40 close -m $me | .timer 1 43 setup2
  191. n189=}
  192. n190=setup2 {
  193. n191=  set %AutoJoin $?="Type ( Ajoin ) or ( Fjoin )"
  194. n192=  set %setup good
  195. n193=  if (%AutoJoin == ajoin) { set %join join }
  196. n194=  else { set %join Halt }
  197. n195=  SaveAllINIs
  198. n196=  .Timer 1 5 Query $me 3You have completed setting up Gs3! You must close this program compleatly and restart it, for your values to take effect! Might I suggest you make a shortcut to the desktop at this time! This Program will auto Quit in a moment! | .timer 1 40 close -m $me | timer 1 43 Quit
  199. n197=}
  200. n198=CTCphuk {
  201. n199=  set %chann #
  202. n200=  mode %chann +b $address( % [ $+ [ $nick ] ] ,2)
  203. n201=  :trip
  204. n202=  inc %pc 1
  205. n203=  if ($ial($address( % [ $+ [ $nick ] ] ,2),%pc ).nick == $null) { goto uset }
  206. n204=  kick %chann $ial($address( % [ $+ [ $nick ] ] ,2),%pc ).nick 4CTCP FLOODER EJECTED %tg
  207. n205=  goto trip
  208. n206=  :Uset | unset % [ $+ [ $nick ] ] %pc %ct | halt
  209. n207=}
  210. n208=F2 run Notepad.exe %kickpath
  211. n209=F3 run Notepad.exe %MPath
  212. n210=F4 run Notepad.exe %PPath
  213. n211=F5 {
  214. n212=  if (%P == Auto) {
  215. n213=    .enable #Pager
  216. n214=    set %fpager ON
  217. n215=    goto go
  218. n216=  }
  219. n217=  elseif (%P == ON) {
  220. n218=    .enable #Pager
  221. n219=    set %Fpager ON
  222. n220=    goto go
  223. n221=  }
  224. n222=  elseif (%P == OFF) {
  225. n223=    .disable #Pager
  226. n224=    set %Fpager OFF
  227. n225=    goto go
  228. n226=  }
  229. n227=  :go
  230. n228=  set %brb 0
  231. n229=  .timer17 0 1 inc %brb 1
  232. n230=  set %PR No 
  233. n231=  amsg 1çç[12Be Right Back1]╗ P└G╔R12 %FPager 1½[12 $+ $atime %tz $+ 1] %tg | .timer15 0 500 amsg 1çç[12Be Right Back1]╗ P└G╔R12 %FPager 1½[12 $+ $atime %tz 1] %tg 
  234. n232=  nick %brbnick
  235. n233=}
  236. n234=F6 {
  237. n235=  if (%P == Auto) {
  238. n236=    .disable #Pager
  239. n237=    set %fpager OFF
  240. n238=    goto go
  241. n239=  }
  242. n240=  elseif (%P == ON) {
  243. n241=    .enable #Pager
  244. n242=    set %Fpager ON
  245. n243=    goto go
  246. n244=  }
  247. n245=  elseif (%P == OFF) {
  248. n246=    .disable #Pager
  249. n247=    set %Fpager OFF
  250. n248=    goto go
  251. n249=  }
  252. n250=  :go
  253. n251=  amsg 1çç[12I am Back1]╗ Away for $duration(%brb) %tg
  254. n252=  echo -a 1çç[12You Recieved1]╗12 %PR 1P└G╔S (F4) 
  255. n253=  .timer15 off
  256. n254=  .timer17 off
  257. n255=  unset %brb
  258. n256=  nick %RegNick
  259. n257=}
  260. n258=F7 /away | amsg Now ending my idle away [ $duration($ide)e ]
  261. n259=cF7 /away | amsg my idle is [ $duration($idle) ]
  262. n260=F8 {
  263. n261=  if (( %WavShr == Select ) && ( %WavAsk == Text )) { msg $chan %WavNick }
  264. n262=  if (( %wavShr == Select ) && ( %WavAsk == Notice )) { Notice %Wnick %WavNick }
  265. n263=  if ( %WavShr == Disabled ) { echo -a çç[12Wav/Midi*Share⌐1]╗ Is Currently ½[12Disabled1] }
  266. n264=}
  267. n265=F9 join %HomeChannel1
  268. n266=F10 join %HomeChannel2
  269. n267=F11 join %HomeChannel3
  270. n268=F12 join %HomeChannel4
  271. n269=TB {
  272. n270=  if ($away == $true) {
  273. n271=    set %Aw /ñ AWAY ñ Pager: $+ %P $+ ñ Messages: $+ %M $+ ñ Set: %at ñ/
  274. n272=  }
  275. n273=  if ($away == $false) {
  276. n274=    set %Aw ç//ñ½GunSlinger3ñ] 97 [ñby SixGun╗ñ//ç
  277. n275=  }
  278. n276=  titlebar 4.72]╗Port: $+ $port $+ %Aw $+ Online: $+ $duration(%ol)
  279. n277=  .timer555 0 14 TB
  280. n278=}
  281. n279=ASilent {
  282. n280=  if (%P == Auto) { .enable #Pager | set %fpager ON | goto mess }
  283. n281=  if (%P == ON) { .enable #Pager | set %Fpager ON | goto mess }
  284. n282=  if (%P == OFF) { .disable #Pager | set %Fpager OFF | goto mess }
  285. n283=  :Mess
  286. n284=  if (%M == Auto) { .enable #Message | set %Mess ON | .disable #Privmsg | set %Priv Disabled | goto go }
  287. n285=  if (%M == ON) { .enable #Message | set %Mess ON | .disable #Privmsg | set %Priv Disabled | goto go }
  288. n286=  if (%M == OFF) { .disable #Message | set %Mess OFF | if (%priv == Enabled) { .enable #Privmsg } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  289. n287=  :go
  290. n288=  set %brb 0
  291. n289=  .sound off
  292. n290=  set %at $atime
  293. n291=  .timer17 0 1 inc %brb 1
  294. n292=  Saway
  295. n293=  nick %awaynick 
  296. n294=  set %PR No | set %MR No
  297. n295=}
  298. n296=AVerbose {
  299. n297=  if (%P == Auto) { .enable #Pager | set %fpager ON | goto mess }
  300. n298=  if (%P == ON) { .enable #Pager | set %Fpager ON | goto mess }
  301. n299=  if (%P == OFF) { .disable #Pager | set %Fpager OFF | goto mess }
  302. n300=  :Mess
  303. n301=  if (%M == Auto) { .enable #Message | set %Mess ON | .disable #Privmsg | set %Priv Disabled | goto go }
  304. n302=  if (%M == ON) { .enable #Message | set %Mess ON | .disable #Privmsg | set %Priv Disabled | goto go }
  305. n303=  if (%M == OFF) { .disable #Message | set %Mess OFF | if (%priv == Enabled) { .enable #Privmsg } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  306. n304=  :go
  307. n305=  set %brb 0
  308. n306=  .sound off
  309. n307=  away %away
  310. n308=  unset %t
  311. n309=  set %at $atime
  312. n310=  .timer17 0 1 inc %brb 1
  313. n311=  Aaway
  314. n312=  nick %awaynick
  315. n313=  set %PR No | set %MR No
  316. n314=}
  317. n315=BSilent {
  318. n316=  if (%P == Auto) { .disable #Pager | set %fpager OFF | goto mess }
  319. n317=  if (%P == ON) { .enable #Pager | set %Fpager ON | goto mess }
  320. n318=  if (%P == OFF) { .disable #Pager | set %Fpager OFF | goto mess }
  321. n319=  :mess
  322. n320=  if (%M == Auto) { .disable #Message | set %Mess OFF | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  323. n321=  if (%M == ON) { .enable #Message | set %Mess ON | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  324. n322=  if (%M == OFF) { .disable #Message | set %Mess OFF | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  325. n323=  :go
  326. n324=  away 
  327. n325=  unset %t
  328. n326=  .Timer22* off 
  329. n327=  .sound on
  330. n328=  echo -a 1çç[12You Recieved1]╗12 %MR 1M╚SSAG╔S (F3) ½ç╗12 %PR 1P└G╔S (F4)
  331. n329=  nick %regnick
  332. n330=  .timer17 off
  333. n331=  unset %brb
  334. n332=}
  335. n333=BVerbose {
  336. n334=  if (%P == Auto) { .disable #Pager | set %fpager OFF | goto mess }
  337. n335=  if (%P == ON) { .enable #Pager | set %Fpager ON | goto mess }
  338. n336=  if (%P == OFF) { .disable #Pager | set %Fpager OFF | goto mess }
  339. n337=  :mess
  340. n338=  if (%M == Auto) { .disable #Message | set %Mess OFF | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  341. n339=  if (%M == ON) { .enable #Message | set %Mess ON | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  342. n340=  if (%M == OFF) { .disable #Message | set %Mess OFF | if (%pri == ON) { .enable #Privmsg | set %priv Enabled } | else { set %Priv Disabled | .disable #Privmsg } | goto go }
  343. n341=  :go
  344. n342=  .sound on
  345. n343=  amsg 1çç[12I am Back1]╗ Away for $duration(%brb) %tg
  346. n344=  away
  347. n345=  unset %t
  348. n346=  .Timer22* off
  349. n347=  nick %RegNick
  350. n348=  echo -a 1çç[12You Recieved1]╗12 %MR 1M╚SSAG╔S (F3) ½ç╗12 %PR 1P└G╔S (F4)
  351. n349=  .timer17 off
  352. n350=  unset %brb
  353. n351=}
  354. n352=Aaway ame 1çç[12Gone $atime %tz $+ 1]╗12 %away 1½ç╗ P└G╔R12 %FPager 1½ç╗ M╚SSAG╔S12 %Mess %tg | .timer224 1 980 Baway
  355. n353=Baway inc %t 980 | ame 1çç[12Gone Now For $duration(%t) $+ 1]╗12 %away 1½ç╗ P└G╔R12 %fPager 1½ç╗ M╚SSAG╔S12 %Mess %tg | .timer221 1 1055 Caway
  356. n354=Caway inc %t 1055 | ame 1çç[12Gone Now For $duration(%t) $+ 1]╗12 %away 1½ç╗ P└G╔R12 %FPager 1½ç╗ M╚SSAG╔S12 %Mess %tg | .timer223 1 980 Baway
  357. n355=Saway away 1çç[12Gone $atime %tz $+ 1]╗12 %away 1½ç╗ P└G╔R12 %FPager 1½ç╗ M╚SSAG╔S12 %Mess %tg
  358. n356=Shit mode $chan +bb $wildsite $address($nick,3) | .guser =99 $nick 3 | close -cmfgsi $nick | kick $chan $nick 1çç//ñ 4SHITLISTED 1ñ//çç %tg
  359. n357=PShit {
  360. n358=  //Notice $nick 1çç//ñ 4SHITLISTED 1ñ//çç %tg
  361. n359=  .Guser =99 $nick 3
  362. n360=  .Guser =99 $nick 2
  363. n361=  .ignore -aintu900 $nick 2 
  364. n362=}
  365. n363=KShit .Guser =99 $knick 3 | .Guser =99 $knick 2 | mode $chan +b $wildsite | mode $chan +b $address($knick,3) | .ignore -aintu900 $knick 3 | .ignore -aintu900 $knick 2 | close -cmfgsi $knick | //Notice $knick 1çç//ñ 4SHITLISTED 1ñ//çç %tg
  366. n364=ShitList .Guser =99 $nick 3 | .Guser =99 $nick 2 | mode $chan +b $wildsite | mode $chan +b $address($nick,3) | .ignore -aintu900 $nick 2 | .ignore -aintu900 $nick 3 | close -cmfgsi $nick | Kick $chan $nick 1çç//ñ 4SHITLISTED 1ñ//çç %tg
  367. n365=Cping {
  368. n366=  %niks = $nick(0,#) - 1
  369. n367=  %pc = %pg * 100
  370. n368=  %ave = %total / %pg
  371. n369=  %aveN = %pc / %niks
  372. n370=  %png 1çç[12Ping Stats⌐1]╗12 # %tg
  373. n371=  %png 1çç[12Channel Lag⌐1]╗ Average is12 %ave 1sec. %tg
  374. n372=  %png 1çç[12Time Limit⌐1]╗ Persent of Nicks Replying in the 1 Min. ½[12 $+ %aveN $+ % $+ 1]
  375. n373=  if ((%niks < 6) && ($lines(%Lamepath ) > 1)) {
  376. n374=    play -c %Lamepath 10
  377. n375=    play -c %Replypath 10
  378. n376=    unset %ave
  379. n377=    unset %aveN
  380. n378=    unset %pg
  381. n379=    unset %total
  382. n380=    unset %pc
  383. n381=    unset %niks
  384. n382=  }
  385. n383=  elseif ((%niks > 5) && ($lines(%Lamepath ) > 1)) {
  386. n384=    play -c %Lamepath 10
  387. n385=    unset %ave
  388. n386=    unset %aveN
  389. n387=    unset %pg
  390. n388=    unset %total
  391. n389=    unset %pc
  392. n390=    unset %niks
  393. n391=  }  
  394. n392=  elseif ((%niks < 6) && ($lines(%Lamepath ) < 2)) {
  395. n393=    play -c %Replypath 10
  396. n394=    unset %ave
  397. n395=    unset %aveN
  398. n396=    unset %pg
  399. n397=    unset %total
  400. n398=    unset %pc
  401. n399=    unset %niks
  402. n400=  }  
  403. n401=  elseif ((%niks > 5) && ($lines(%Lamepath ) < 2)) {
  404. n402=    unset %ave
  405. n403=    unset %aveN
  406. n404=    unset %pg
  407. n405=    unset %total
  408. n406=    unset %pc
  409. n407=    unset %niks
  410. n408=  }  
  411. n409=}
  412. n410=time {
  413. n411=  %time1 = $parm5 
  414. n412=  %time2 = $left(2,%time1) 
  415. n413=  %time3 = $mid(4,2,%time1)
  416. n414=  if ($len(%time1) < 8) { %time2 = $left(1,%time1) 
  417. n415=  %time3 = $mid(3,2,%time1) }
  418. n416=  if (%time2 == 0) %time2 = 12
  419. n417=  %time1 = %time2 $+ : $+ %time3 $+ am
  420. n418=  if (%time2 > 11) { %time2 = %time2 - 12 
  421. n419=    if (%time2 == 0) %time2 = 12 
  422. n420=  %time1 = %time2 $+ : $+ %time3 $+ pm }
  423. n421=  %time = %time1 
  424. n422=}
  425. n423=TheChan {
  426. n424=  %channum = 0
  427. n425=  :places
  428. n426=  if (%channum > $chan(0)) { goto final }
  429. n427=  else { %i = 0 | inc %channum | goto Beganing }
  430. n428=  :Beganing
  431. n429=  inc %i
  432. n430=  if (%i > $nick(0,$chan(%channum))) { goto places }
  433. n431=  elseif (($Tureaddy($address($nick(%i,$chan(%channum)),3)) == %Seeit) && (%ThatNick !ison %Cswitch)) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Right Now 12 $+ %ThatNick 1is in The Channel ½ç╗12 $chan(%channum) 1½ç╗ and is using ½[12 $+ $nick(%i,$chan(%channum)) $+ 1] | halt }
  434. n432=  elseif (($Tureaddy($address($nick(%i,$chan(%channum)),3)) == %Seeit) && (%ThatNick ison %Cswitch)) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Hey ½ç╗12 %ThatNic 1½ç╗ is in Here Now But is Using ½[12 $+ $nick(%i,$chan(%channum)) $+ 1]  | halt }
  435. n433=  else { goto Beganing }
  436. n434=  :final
  437. n435=  return 
  438. n436=}
  439. n437=listed { return $readini Gs3seen.ini seesaw $1  }
  440. n438=Tureaddy { return $readini Gs3seen.ini True $1 }
  441. n439=seen {
  442. n440=  if ($readini Smut.ini SmutWords %SeeNick != $null) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Funny $nick Very Funny! :( | halt }
  443. n441=  %Seeit = op %SeeNick
  444. n442=  %Usedto = $ctime - [ $readini Gs3seen.ini time %SeeNick ] | %didit = $readini Gs3seen.ini seenlast %SeeNick 
  445. n443=  if (%SeeNick == $me) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Hey Wait a Minute thats Me???--Are YOU OK??? | halt }
  446. n444=  if (($Listed(%SeeNick) != %Seeit) || ($Listed(%SeeNick) == $null))  { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Who the Hell is ½[12 $+ %SeeNick $+ 1] | halt }
  447. n445=  elseif (%SeeNick == $nick) { 
  448. n446=    if ($Tureaddy($address(%SeeNick,3)) == %Seeit) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Ok I give up! You Tell Me about ½[12 $+ %SeeNick $+ 1] %tg | halt }
  449. n447=  elseif ($Tureaddy($address(%SeeNick,3)) != %Seeit) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ I Saw12 %SeeNick 1 $+ $duration(%Usedto) ago! When %didit | %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Please Change your Nick you are NOT ½[12 $+ %SeeNick $+ 1] %tg | halt } }
  450. n448=  if (%SeeNick ison $chan) {
  451. n449=    if ($Tureaddy($address(%SeeNick,3)) == %Seeit) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Hey Look around!12 %SeeNick 1is Here Now! }
  452. n450=  elseif ($Tureaddy($address(%SeeNick,3)) != %Seeit) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ I Saw12 %SeeNick 1 $+ $duration(%Usedto) ago, When %didit However someone is using12 %SeeNick $+ 's 1nick Right Now }  } 
  453. n451=  else {
  454. n452=    if ($Tureaddy($address($nick,3)) == %Seeit) { %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Hey12 %SeeNick 1Are you Joking? I know you No Matter what your nick is lol }
  455. n453=  elseif ($Listed(%SeeNick) == %Seeit)  { %Cswitch = $chan | %ThisNick = $nick | %ThatNick = %SeeNick | TheChan | %sw5 1çç[12Gs3's Last*Seen⌐1]╗ Hey I Saw %SeeNick $duration(%Usedto) ago! When %didit } }
  456. n454=}
  457. n455=Counter {
  458. n456=  if ($3 == aa) { %pop = 0 + %aa | goto cow }
  459. n457=  elseif ($3 == bb) { %pop = 0 + %bb | goto cow }
  460. n458=  elseif ($3 == cc) { %pop = 0 + %cc | goto cow }
  461. n459=  elseif ($3 == dd) { %pop = 0 + %dd | goto cow }
  462. n460=  elseif ($3 == ee) { %pop = 0 + %ee | goto cow }
  463. n461=  :cow
  464. n462=  if (%pop isnum 0-10000) {
  465. n463=    inc %pop 1
  466. n464=    if (($right(2,%pop) != 11 ) && ($right(1,%pop) == 1 )) { set %th st } 
  467. n465=    elseif (($right(2,%pop) != 12 ) && ($right(1,%pop) == 2 )) { set %th nd } 
  468. n466=    elseif (($right(2,%pop) != 13 ) && ($right(1,%pop) == 3 )) { set %th rd } 
  469. n467=    elseif (($right(1,%pop) != 1 ) || ($right(1,%pop) != 2 ) || ($right(1,%pop) != 3 )) { set %th th }
  470. n468=    if ($3 == aa) { %aa = 0 + %pop | goto returns }
  471. n469=    elseif ($3 == bb) { %bb = 0 + %pop | goto returns }
  472. n470=    elseif ($3 == cc) { %cc = 0 + %pop | goto returns }
  473. n471=    elseif ($3 == dd) { %dd = 0 + %pop | goto returns }
  474. n472=    elseif ($3 == ee) { %ee = 0 + %pop | goto returns }
  475. n473=    :returns
  476. n474=    .save -v varible.ini
  477. n475=    %cow = %pop $+ %th
  478. n476=    return %cow
  479. n477=  }
  480. n478=}
  481. n479=MassKickChan {
  482. n480=  %kick = 0
  483. n481=  :doit
  484. n482=  inc %kick 1
  485. n483=  if (($nick(%kick,#) = X) || ($nick(%kick,#) = W)) { %prouer | goto doit }
  486. n484=  if (($nick(%kick,#) = $me) || ($level($address($snick(%sn,#),3)) >= 400)) { %prouer | goto doit }
  487. n485=  if ($nick(%kick,#) = $null) { halt } 
  488. n486=  kick # $nick(%kick,#) %Gs3
  489. n487=  goto doit
  490. n488=}
  491. n489=MassKickChanN-op {
  492. n490=  %kick = 0
  493. n491=  :doit
  494. n492=  inc %kick 1
  495. n493=  if (($nopnick(%kick,#) = X) || ($nopnick(%kick,#) = W)) { %prouer | goto doit }
  496. n494=  if (($nopnick(%kick,#) = $me) || ($level($address($snick(%sn,#),3)) >= 400)) { %prouer | goto doit }
  497. n495=  if ($nopnick(%kick,#) = $null) { halt } 
  498. n496=  kick # $nopnick(%kick,#) %Gs3
  499. n497=  goto doit
  500. n498=}
  501. n499=MassKickChan-op {
  502. n500=  %kick = 0
  503. n501=  :doit
  504. n502=  inc %kick 1
  505. n503=  if (($opnick(%kick,#) = X) || ($opnick(%kick,#) = W)) { %prouer | goto doit }
  506. n504=  if (($opnick(%kick,#) = $me) || ($level($address($snick(%sn,#),3)) >= 400)) { %prouer | goto doit }
  507. n505=  if ($opnick(%kick,#) = $null) { halt } 
  508. n506=  kick # $opnick(%kick,#) %Gs3
  509. n507=  goto doit
  510. n508=}
  511. n509=MassChan-deop {
  512. n510=  %op = 0
  513. n511=  :doit
  514. n512=  inc %op 1
  515. n513=  if (($opnick(%op,#) = X) || ($opnick(%op,#) = W)) { %prouer | goto doit }
  516. n514=  if (($opnick(%op,#) = $me) || ($level($address($snick(%sn,#),3)) >= 400)) { %prouer | goto doit }
  517. n515=  if ($opnick(%op,#) = $null) { halt } 
  518. n516=  mode # -o $opnick(%op,#) %Gs3
  519. n517=  goto doit
  520. n518=}
  521. n519=atime {
  522. n520=  set %hr $token(1,58,$time)
  523. n521=  set %min $token(2,58,$time)
  524. n522=  if (%hr == 0) { set %hr 12 | set %sub am }
  525. n523=  elseif (%hr < 12) { set %sub am }
  526. n524=  elseif (%hr == 12) { set %sub pm }
  527. n525=  else { %hr = %hr - 12 | set %sub pm }
  528. n526=  return %hr $+ : $+ %min $+ %sub
  529. n527=}
  530. n528=NickTrak {
  531. n529=  echo -a 1çç[12Trak Nik⌐1]╗ NOW STARTING TRAK OF ½[12 $+ %Trak $+ 1]
  532. n530=  .ENABLE #Trak
  533. n531=  whois %Trak 
  534. n532=  .timer800 1 10 .disable #Trak
  535. n533=  .timer801 0 60 .enable #Trak
  536. n534=  .timer802 0 60 whois %Trak
  537. n535=  .timer803 1 10 .timer803 0 60 .disable #Trak
  538. n536=  .timer805 1 1800 echo -a 1çç[12Trak Nik⌐1]╗ NOW ENDING TRAK OF ½[12 $+ %Trak $+ 1]
  539. n537=  halt
  540. n538=}
  541. n539=/SaveAllINIs {
  542. n540=  .save -a %Sini $+ aliases.ini
  543. n541=  .save -p %Sini $+ popups.ini
  544. n542=  .save -c %Sini $+ commands.ini
  545. n543=  .save -e %Sini $+ events.ini
  546. n544=  .save -u %Sini $+ users.ini
  547. n545=  .save -v %Sini $+ varible.ini
  548. n546=  .save -r %Sini $+ raw.ini
  549. n547=  echo -a 12All %tg INI files NOW SAVED on $day $adate $atime %tz
  550. n548=}
  551. n549=/ReloadallINIs {
  552. n550=  .load -a %Sini $+ aliases.ini
  553. n551=  .load -p %Sini $+ popups.ini
  554. n552=  .load -c %Sini $+ commands.ini
  555. n553=  .load -e %Sini $+ events.ini
  556. n554=  .load -u %Sini $+ users.ini
  557. n555=  .load -v %Sini $+ varible.ini
  558. n556=  .load -r %Sini $+ raw.ini
  559. n557=  echo -a 12All %tg INI files NOW RELOADED on $day $adate $atime %tz
  560. n558=}
  561. n559=/BackupallINIs {
  562. n560=  .save -a %SBini $+ aliases.bak
  563. n561=  .save -p %SBini $+ popups.bak
  564. n562=  .save -c %SBini $+ commands.bak
  565. n563=  .save -e %SBini $+ events.bak
  566. n564=  .save -u %SBini $+ users.bak
  567. n565=  .save -v %SBini $+ varible.bak
  568. n566=  .save -r %SBini $+ raw.bak
  569. n567=  Write C:\GunSlinger3\backup\Backup.txt  Last Backup done on $day $adate $atime %tz
  570. n568=  echo -a 12All %tg INI files NOW BACKEDUP on $day $adate $atime %tz
  571. n569=}
  572. n570=200 {
  573. n571=  .guser 200 $$1 3
  574. n572=  writeini Gs3seen.ini address $address($$1,3) $remove($remove($$1,[),])
  575. n573=  writeini Gs3seen.ini seesaw $remove($remove($$1,[),]) op $remove($remove($$1,[),])
  576. n574=  writeini Gs3seen.ini True $address($$1,3) op $remove($remove($$1,[),])
  577. n575=  echo 1çç[12Gs3's Last*Seen⌐1]╗ Now Adding To Gs3seen ½[12 $+ $remove($remove($$1,[),]) 1at12 $address($$1,3) $+ 1]
  578. n576=  %do 1çç[12Add*User⌐1]╗ Level 200 Friend ½[12 $+ $$1 $+ 1]
  579. n577=  halt
  580. n578=}
  581. n579=300 {
  582. n580=  .guser 300 $$1 3
  583. n581=  auto $$1 $chan 3
  584. n582=  writeini Gs3seen.ini address $address($$1,3) $remove($remove($$1,[),])
  585. n583=  writeini Gs3seen.ini seesaw $remove($remove($$1,[),]) op $remove($remove($$1,[),])
  586. n584=  writeini Gs3seen.ini True $address($$1,3) op $remove($remove($$1,[),])
  587. n585=  echo 1çç[12Gs3's Last*Seen⌐1]╗ Now Adding To Gs3seen ½[12 $+ $remove($remove($$1,[),]) 1at12 $address($$1,3) $+ 1]
  588. n586=  %do 1çç[12Add*User⌐1]╗ Level 300 Operator ½[12 $+ $$1 $+ 1]
  589. n587=  Mode # +o $$1
  590. n588=  halt
  591. n589=}
  592. n590=400 {
  593. n591=  .guser 400 $$1 3
  594. n592=  auto $$1 $chan 3
  595. n593=  writeini Gs3seen.ini address $address($$1,3) $remove($remove($$1,[),])
  596. n594=  writeini Gs3seen.ini seesaw $remove($remove($$1,[),]) op $remove($remove($$1,[),])
  597. n595=  writeini Gs3seen.ini True $address($$1,3) op $remove($remove($$1,[),])
  598. n596=  echo 1çç[12Gs3's Last*Seen⌐1]╗ Now Adding To Gs3seen ½[12 $+ $remove($remove($$1,[),]) 1at12 $address($$1,3) $+ 1]
  599. n597=  %do 1çç[12Add*User⌐1]╗ Level 400 Top Operator ½[12 $+ $$1 $+ 1]
  600. n598=  Mode # +o $$1
  601. n599=  halt
  602. n600=}
  603. n601=500 {
  604. n602=  .guser 500 $$1 3
  605. n603=  %do 1çç[12Add*YourSelf⌐1]╗ Level 500 YourSelf ½[12 $+ $$1 $+ 1]
  606. n604=}
  607. n605=A99 {
  608. n606=  .ruser $level($address($$1,3)) $$1 | .guser =99 $$1 2 | .guser =99 $$1 3
  609. n607=  echo -a 1çç[12Add*User⌐1]╗ Level =99 ShitList ½[12 $+ $$1 $+ 1]
  610. n608=}
  611. n609=R200 {
  612. n610=  .ruser 200 $$1 3
  613. n611=  echo -a 1çç[4Removed User⌐1]╗ Level 200 Friend ½[4 $+ $$1 $+ 1]
  614. n612=}
  615. n613=R300 {
  616. n614=  .ruser 300 $$1 3
  617. n615=  auto -r $$1 $chan 3
  618. n616=  echo -a 1çç[4Removed User⌐1]╗ Level 300 Operator ½[4 $+ $$1 $+ 1]
  619. n617=  .disable #Notify
  620. n618=  echo -a 1çç[4Removed User⌐1]╗ Notify List ½[4 $+ $$1 $+ 1]
  621. n619=  .notify $$1
  622. n620=  .enable #Notetxt
  623. n621=  whois $$1
  624. n622=  halt
  625. n623=}
  626. n624=R400 {
  627. n625=  .ruser 400 $$1 3
  628. n626=  auto -r $$1 $chan 3
  629. n627=  echo -a 1çç[4Removed User⌐1]╗ Level 400 Top Operator ½[4 $+ $$1 $+ 1]
  630. n628=  .disable #Notify
  631. n629=  echo -a 1çç[4Removed User⌐1]╗ Notify List ½[4 $+ $$1 $+ 1]
  632. n630=  .notify $$1
  633. n631=  .enable #Notetxt
  634. n632=  whois $$1
  635. n633=  halt
  636. n634=}
  637. n635=R500 {
  638. n636=  .ruser 500 $$1 3
  639. n637=  echo -a 1çç[4Removed User⌐1]╗ Level 500 YourSelf ½[4 $+ $$1 $+ 1]
  640. n638=  .disable #Notify
  641. n639=  echo -a 1çç[4Removed User⌐1]╗ Notify List ½[4 $+ $$1 $+ 1]
  642. n640=  .notify $$1
  643. n641=  .enable #Notetxt
  644. n642=  whois $$1
  645. n643=  halt
  646. n644=}
  647. n645=R99 {
  648. n646=  .ruser =99 $$1 3
  649. n647=  .ruser =99 $$1 2
  650. n648=  ignore -r $$1 2
  651. n649=  ignore -r $$1 3 
  652. n650=  echo -a 1çç[12Removed User⌐1]╗ From ShitList Level =99 ½[12 $+ $$1 $+ 1]
  653. n651=}
  654. n652=Filecheck {
  655. n653=  if ($lines(%seenpath) < 995) { halt }
  656. n654=  elseif (($lines(%seenpath) > 995) && ($lines(%Seenpath) < 1000)) {
  657. n655=    echo -a 4Warning Last*Seen File is nearing 1000 lines!!! At 1000 lines it Auto Reset and all data will be lost!!!
  658. n656=  }
  659. n657=  elseif ($lines(%seenpath) >= 1000) { Seenset }
  660. n658=}
  661. n659=Seenset {
  662. n660=  Remini Gs3seen.ini seenlast
  663. n661=  Remini Gs3seen.ini address
  664. n662=  Remini Gs3seen.ini seesaw
  665. n663=  Remini Gs3seen.ini True
  666. n664=  Remini Gs3seen.ini Time
  667. n665=  Remini Gs3seen.ini UpDate
  668. n666=  Writeini Gs3seen.ini UpDate Last This File was last Reset on $adate $atime %tz
  669. n667=  echo -a 1çç[12Last*Seen⌐1]╗ File Has Been 4DELETED and RESET 12½ñ//ç
  670. n668=}
  671. n669=Notifyset {
  672. n670=  Remini Notify.ini Reset
  673. n671=  Remini Notify.ini notenick
  674. n672=  Remini Notify.ini noteuser
  675. n673=  Remini Notify.ini notehost
  676. n674=  Remini Notify.ini notereal
  677. n675=  writeini Notify.ini Reset Date $adate $atime %tz
  678. n676=  echo -a 12ç//ñ╗ The 4*Notify* 12File Has Been 4DELETED and RESET 12½ñ//ç
  679. n677=  echo -a 4ç//ñ╗ *NOTICE* You Must Delete All Nicks In The Notify List In mIRC Options ½ñ//ç
  680. n678=}
  681. n679=KickSet {
  682. n680=  Write -c C:\GunSlinger3\Textfiles\kicked.txt ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ
  683. n681=  Write C:\GunSlinger3\Textfiles\kicked.txt ;ñ //½Gs3ñ]    ññççññ Kick*Record ñççñ The GunSlinger 3 ññççññ
  684. n682=  Write C:\GunSlinger3\Textfiles\kicked.txt ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ by SixGun ñ ñ ñ ñ 
  685. n683=  Write C:\GunSlinger3\Textfiles\kicked.txt ;Reset*Last on $day $+ , $adate $atime %tz
  686. n684=  echo -a 12ç//ñ╗ The 4Kick*Record 12File Has Been 4DELETED and RESET 12½ñ//ç
  687. n685=}
  688. n686=Pset {
  689. n687=  if ($lines(%Ppath ) > 29) {
  690. n688=    echo -a 4Warning Pager file is nearing max size it will Auto Reset soon!!!
  691. n689=  }
  692. n690=  if ($lines(%PPath ) == 34) { Pagerset }
  693. n691=}
  694. n692=Mset {
  695. n693=  if ($lines(%Mpath ) > 29) {
  696. n694=    echo -a 4Warning Messages file is nearing max size it will Auto Reset soon!!!
  697. n695=  }
  698. n696=  if ($lines(%MPath ) == 34) { Messageset }
  699. n697=}
  700. n698=Pagerset {
  701. n699=  Write -c %PPath ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ
  702. n700=  Write %PPath ; //½Gs3ñ]      ññççñññ Pages ñññççññ The GunSlinger 3 ññççññ
  703. n701=  Write %PPath ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ by SixGun ñ ñ ñ ñ
  704. n702=  Write %PPath ;Reset*Last on $day $+ , $adate $atime %tz
  705. n703=  echo -a 1çç[12Pager File1]╗ Has Now Been ½[4DELETED -n- RESET1]  
  706. n704=}
  707. n705=Messageset {
  708. n706=  Write -c %MPath ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ
  709. n707=  Write %MPath ; //½Gs3ñ]      ññççññ Messages ññççññ The GunSlinger 3 ññççññ
  710. n708=  Write %MPath ;ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ ñ by SixGun ñ ñ ñ ñ
  711. n709=  Write %MPath ;Reset*Last on $day $+ , $adate $atime %tz
  712. n710=  echo -a 1çç[12Message File1]╗ Has Now Been ½[4DELETED -n- RESET1]  
  713. n711=}
  714.